namelen=len(alltrim(staf_name))
do case
   case namelen<5
      namel=namelen+4
   case namelen>4 .and. namelen<9
      namel=namelen
   case namelen>8 .and. namelen<13
      namel=namelen-4
   case namelen>12
      namel=namelen-8
endcase
